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FOREWORD 

^  This  report  contains  documentation  for  a  FORTRAN  Implementation  of  a 
B+  tree,  a  data  structure  which  Is  often  used  as  the  foundation  of  a  database 
manager.  Because  the  code  Is  written  In  a  high-level  language.  It  Is 
basically  transportable  to  any  computer  with  FORTRAN  capability  (minor 
modification  may  be  required  for  compatablllty  with  a  host  computer's 
operating  system  and  compiler).  The  work  was  done  as  a  first  step  towards 
developing  a  user-friendly.  Interactive  database  manager  needed  by  U31  to 
support  studies  requiring  the  extensive  use  of  minefield  planning  codes.  . 


This  work  has  been  supported  by  the  Mine  Improvement  Program  at  NSWC 
under  Project  S0267. 


IRA  M.  BLATSTEIN,  Head 
Radiation  Division 
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INTRODUCTION 

A  B+  tree  Is  a  data  structure  which  Is  particularly  well  suited  for 
storing  the  keys  which  Identify  the  records  In  a  database.  The  objective  of  a 
B+  tree,  hereafter  referred  to  simply  as  a  tree.  Is  to  minimize  the  number  of 
mass  storage  accesses  required  to  find  a  specified  key.  A  conceptual 
representation  of  a  tree,  containing  the  letters  {B,D,E,G,H,L,N,R,S}  as  keys. 
Is  shown  In  Figure  1. 


{COLLECTION  OF  DATA  RECORDS) 


FIGURE  1.  EXAMPLE  OF  A  B+  TREE 

A  tree  corresponds  to  a  file,  each  node  of  the  tree  corresponds  to  a 
record  In  that  file,  and  a  pointer  between  nodes  corresponds  to  the  record 
number  of  the  node  to  which  It  points.  The  tree  In  Figure  1  has  a  nodal 
capacity  equal  to  2.  The  nodes  on  the  bottom  level,  called  the  leaves  of  the 
tree,  contain  all  the  keys.  Each  leaf  points  to  Its  neighbor  on  the  right, 
and  the  rightmost  leaf  points  to  zero,  Indicating  that  It  Is  the  last  leaf  In 
the  tree. 

All  key  searches  begin  at  the  top  node,  known  as  the  root.  To  find  the 
letter  G,  for  example,  the  left  node  on  the  second  level  Is  searched  after  the 
root  because  G  precedes  L  In  alphabetical  order.  Since  G  Is  between  E  and  H, 
the  second  leaf  from  the  left  Is  searched  next,  and  the  key  Is  found.  Thus, 
the  number  of  accesses  required  to  find  a  key  Is  equal  to  one  more  than  the 
height  of  the  tree.  As  keys  are  added  to  the  tree,  leaves  become  full  and 
split  In  half;  as  keys  are  removed,  adjacent  leaves  may  merge.  A  complete 
description  of  splitting  and  merging  rules  will  not  be  given  here,  but  the 
Interested  reader  Is  referred  to  the  excellent  Introduction  presented  by 
Comer';  a  more  analytical  discussion  can  be  found  In  Knutlr. 
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Documentation  for  a  database  manager  based  on  the  code  listed  in  Appendix  B 
Is  contained  In  Winston3. 


SPECIFICATIONS 


The  Implementation  listed  In  Appendix  B  Is  written  In  a  version  of 
FORTRAN  77  for  a  DEC  VAX/780  computer  with  the  VMS  operating  system.  In 
particular,  files  names  are  at  most  9  characters  long,  and  have  extenders  with 
as  many  as  3  characters.  A  tree  called  (name)  can  have  as  many  as  3  files 
associated  with  It:  (name). KEY,  (name). NOD,  and  (name).REC.  The  file 
(name). KEY  corresponds  to  the  tree  Itself,  and  (name). NOD  and  (name).REC  are 
node  and  record  stacks,  respectively.  The  numbers  of  the  nodes  and  data 
records  that  are  deleted  from  the  tree  as  a  result  of  key  deletions  are  saved 
by  the  stacks  and  reused  as  needed.  Stack  files  containing  no  numbers  are 
automatically  erased  from  the  system. 

Records  corresponding  to  nodes  have  a  length  of  256  bytes,  and  the 
maximum  tree  height  Is  equal  to  5.  Keys  have  a  maximum  length  of  20 
characters,  and  the  tree  can  accomodate  up  to  65,535  keys.  Application 
programs  which  call  BTREE  can  have  up  to  10  trees  open  simultaneously,  via  the 
logical  device  unit  numbers  1,2,. ..,10. 

USAGE 


A  call  to  BTREE  Is  accomplished  by  the  standard  FORTRAN  syntax 
CALL  BTREE  (LTR,LDU,A,MAXLEN,IREC,IERR). 

A  description  of  the  Input  and  output  parameters  follows: 
INPUT: 


LTR  (CHARACTERS)  COMMAND 

A  -  (A)dd  a  key  to  the  tree 

C  -  (C) reate  a  new  tree 

D  -  (D)elete  a  key  from  the  tree 

F  -  (F  )1  rst  key  In  the  tree 

6  -  (G)et  first  occurrence  of  a  partial  key 

0  -  (O)pen  an  old  tree 

S  -  (S)uccessor  key 

LDU  (BYTE)  unit  number  under  which  the  tree  communicates 

with  mass  storage;  permissible  values  are 

1,2,. ..,10 

A  (CHARACTER*20)  full  key 

(required  for  LTR  -  'A'.’D') 
partial  key 

(required  for  LTR  ■  'G') 
tree  name 

(required  for  LTR  •  'C’,’0') 
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MAXLEN  (INTEGERM) 


OUTPUT: 

A  (CHARACTER*20) 
IREC  (INTEGERM) 


IERR  (BYTE) 

0  - 

1 

2  - 

3 

4 

5  - 

6  - 


maximum  key  length;  cannot  exceed  20 
(required  for  LTR  =  'C ' ) 


value  of  the  last  key  accessed 

number  of  the  data  record  associated  with  the 
last  key  accessed 

ERROR  CODE 

successful  execution  of  the  command 

illegal  value  of  the  parameter  'LTR' 

attempt  to  create  an  existent  tree 

attempt  to  access  a  nonexistent  tree 

attempt  to  find  a  nonexistent  key 

no  successor  key  exists 

attempt  to  insert  a  key  currently  in  tree 


The  "get"  command  is  of  particular  interest  because  it  searches  the  tree 
for  the  first  occurrence  of  a  left -justified  string  within  a  key.  This 
feature  is  useful  when  it  is  desired  to  access  a  particular  class  of  keys,  all 
of  which  begin  with  the  same  string  of  characters.  Setting  A  equal  to  the 
string  and  executing  a  "get"  command  finds  the  first  key  which  has  A  as  Its 
prefix;  successive  "successor"  commands  find  the  remaining  keys  in  the 
class.  The  full  key  value  returned  by  A  should  always  be  checked  for  its 
prefix  after  each  such  call.  This  procedure  is  especially  fast  because  the 
"successor"  command  usually  does  not  require  a  mass  storage  access.  Unlike 
the  "get"  command,  the  "delete"  command  fails  to  execute  unless  the  full  key 
value  is  specified. 


Either  an  "open"  command  or  a  "create"  command  must  be  executed  prior  to 
performing  any  other  operations  on  a  particular  tree. 


RTREE  creates  trees  which  contain  unlaue  keys  only;  an  attempt  to  insert 
a  duplicate  key  will  not  execute  (IERR  =6).  Also,  the  code  prevents  the 
creation  of  a  new  tree  having  the  same  name  as  a  tree  currently  on  the  system 
(IERR  =  2). 


RECONFIGURATION 


It  may  be  desirable  to  alter  some  of  the  specification  parameters  to  make 
BTREE  mesh  more  efficiently  with  a  particular  application  program.  These 
adjustments  are  Indicated  as  follows: 

(a)  To  change  the  maximum  key  length  to  k  characters,  declare  the 
passing  parameter  A  and  the  Internal  variable  KEYVAl  as 
CHARACTER*k; 

(b)  To  change  the  height  of  the  tree  to  h,  declare  the  arrays  BUF(0:h) 
and  PATH (0: h ) ; 
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(c)  To  change  the  number  of  trees  open  simultaneously  to  t,  declare 
the  arrays  HTREC(t),  MAXREC(t),  HTNOD(t),  MAXNOD(t),  ROOT(t), 
MKL(t),  HEIGHT(t),  NAME(t),  MARKS (t),  MANYS(t),  and  BLOCS(t); 

(d)  To  change  the  size  of  the  nodes  to  s  bytes,  change  all 
CHARACTER*256  declarations  to  CHARACTERS,  assign  FULL  =  (s-4)/0NE 
in  SUBROUTINE  BTREE,  and  assign  RECL  =  s  in  the  OPEN  statement  in 
SUBROUTINE  NEWTREE. 

While  it  is  possible  to  increase  the  maximum  number  of  keys  allowed  in 
the  tree,  the  alterations  required  by  the  code  are  far  more  intricate  and 
complex.  Changing  to  a  3-BYTE  symbol  code  for  integers  would  allow  up  to 
16,777,215  keys,  but  would  entail,  among  other  things,  rewriting  the  functions 
VAL  and  SYM  and  checking  all  sections  of  the  code  dealing  with  loading 
information  into  the  nodes  because  3  bytes  must  be  reserved  for  each  integer 
instead  of  2  bytes.  In  short,  increasing  the  number  of  keys  is  not 
recommended.  Moreover,  specially  tailored  database  programs  are  usually 
developed,  or  purchased,  to  maintain  such  large  databases. 


a 
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APPENDIX  A 


SUBROUTINE  DOCUMENTATION 
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SUBROUTINE  BTREE 


PURPOSE: 

To  control  the  logic  needed  to  execute  the  command 
requested  by  the  value  of  LTR. 

INPUTS: 

LTR  (  = 

ABC) 

CHARACTER*! 

command  letter 

LOU  (  = 

10) 

BYTE 

input/output  device  number 

II  II 

<  < 

NAME  ) 
KEYVAL) 

CHARACTER*20 

CHARACTER*20 

key  name  if  LTR  =  'A'.'D'.or  'G' 
tree  name  if  LTR  =  ' C '  or  '0' 

MAXLEN 

(=  MKL  ) 

I NTEGER*4 

maximum  key  length 

OUTPUTS: 

IREC  ( 

=  PTR  ) 

I NTEGER*4 

number  of  the  data  record 
associated  with  the  last  key 
exami ned 

I  ERR  ( 

=  ERR) 

BYTE 

error  code  number 

A 

CHARACTER*20 

full  value  of  last  key  examined 

ONE 

I NTEGER*4 

parameter  equal  to  MAXLEN  +  2 

FULL 

I NTEGER  *4 

maximum  number  of  keys  in  a  node 

EXTERNALS: 

ADDKEY.NEWTREE.DELKEY, FIRST, GETKEY.OLDTREE, SUCCESSOR 
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SUBROUTINE  MERGE 

PURPOSE:  To  merge  two  adjacent  nodes  into  a  single  node. 

INPUTS: 


LEAF 

LOGICAL 

LFM 

INTEGER *4 

RTM 

I NTEGER*4 

LFBLOC 

CHARACTER*256 

RTBLOC 

CHARACTER*256 

MKL 

INTEGERM 

KEYVAL 

CHARACTERS 

RTNOD 

I NTEGE  R  *4 

10 

BYTE 

NAME 

CHARACTER*9 

HTNOD 

I NTEGER  *4 

MAXNOD 

INTEGERM 

ONE 

INTEGERM 

OUTPUTS : 
none 

EXTERNALS: 

STACK 


.TRUE,  if  and  only  if  the 
current  node  is  a  leaf 

number  of  keys  in  the  left  node 

number  of  keys  in  the  right  node 

left  node 

right  node 

maximum  key  length 

value  of  the  last  key  examined 

number  of  the  right  node 

input/output  device  number 

name  of  the  current  tree 

height  of  the  node  stack 

largest  number  yet  assigned 
to  a  node 

parameter  equal  to  MKL  +  2 
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SUBROUTINE  ADJACENT 


PURPOSE:  To  find  a  node  adjacent  to  the  current  node. 

INPUTS: 


BUF 

CHARACTER*256 

array  which  contains  the  nodes 
in  the  current  path 

LEVEL 

BYTE 

level  of  the  current  node  in 
the  tree 

NOD 

INTEGERM 

number  of  the  current  node 

BLOC 

CHARACTER*256 

current  node 

MANY 

INTEGER *4 

number  of  keys  in  the  current  node 

ONE 

I NTEGER  *4 

parameter  equal  to  MKL  +  2 

OUTPUTS: 

RTNOD 

INTEGERM 

number  of  the  node  to  the  right 
of  the  current  node,  if  it  exists; 
otherwise,  the  number  of  the 
current  node 

RTBLOC 

CHARACTER*256 

right  node 

RTM 

INTEGERM 

number  of  keys  in  the  right  node 

LF  NOD 

INTEGERM 

number  of  the  current  node,  if  no 
right  node  exists;  otherwise,  the 
number  of  the  node  to  the  left  of 
the  current  node 

LF  BLOC 

CHARACTER*245 

left  node 

LFM 

INTEGERM 

number  of  keys  in  the  left  node 

KEYVAL 

CHARACTER*20 

value  of  the  separator  key 

EXTERNALS: 

VAL 
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SUBROUTINE  DELKEY 

PURPOSE:  To  delete  a  key  and  update  the  tree. 

INPUTS: 


10 

BYTE 

input/output  device  number 

NAME 

CHARACTER*9 

name  of  the  current  tree 

HTREC 

I NTEGER  *4 

height  of  the  record  stack 

MAXREC 

INTEGERS 

largest  number  yet  assigned 
to  a  data  record 

FULL 

I NTEGER*4 

maximum  number  of  keys  in  a 

node 

HEIGHT 

BYTE 

height  of  the  current  tree 

ONE 

I  NTEGERM 

parameter  equal  to  MKL  +  2 

OUTPUTS: 

ROOT 

I NTEGER*4 

node  number  of  the  root 
of  the  updated  tree 

j 

HEIGHT 

BYTE 

height  of  the  updated  tree 

! 

HTREC 

I NTEGERM 

height  of  the  updated  record 

stack 

MAXREC 

I NTEGER*4 

largest  number  yet  assigned 
to  a  data  record 

HTNOD 

I  NTEGERM 

height  of  the  updated  node  stack 

MAXNOD 

INTEGERM 

largest  number  yet  assigned 
to  a  node 

EXTERNALS: 

GETKEY, STACK 

.ADJACENT, MERGE, 

PARENT, SHARE 

A- 14 
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SUBROUTINE  SUCCESSOR 


*7 


PURPOSE:  To  search  for  the  key  following  the  last  key 


accessed . 


INPUTS: 

MARK 

INTEGERM 

MANY 

I NTEGERM 

ONE 

INTEGERM 

BLOC 

CHARACTER*256 

OUTPUTS: 

MARK 

I NTEGERM 

MANY 

INTEGERM 

NOD 

I  NTEGERM 

PTR 

INTEGERM 

KEYVAL 

CHARACTER*20 

ERR 

BYTE 

position  in  the  current  node 
of  the  last  key  examined 

number  of  keys  in  the  current  node 

parameter  equal  to  MKL  +  2 

current  node 

position  of  the  next  key  in 
the  node  containing  it 

number  of  keys  in  the  node 
containing  the  next  key 

number  of  the  node  containing 
the  next  key 

number  of  the  data  record 
associated  with  the  next  key 

value  of  the  next  key 

error  code  number 


EXTERNALS: 

none 


'I 
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SUBROUTINE  FIRST 


PURPOSE:  To  search  for  the  first  key  in  the  tree. 

INPUTS: 


10 

BYTE 

input/output  device  number 

ROOT 

INTEGERM 

node  number  of  the  tree  root 

HEIGHT 

BYTE 

height  of  the  current  tree 

OUTPUTS: 

MARK 

INTEGERM 

position  in  the  current  node  of 
the  last  key  examined 

MANY 

I  NTEGERM 

number  of  keys  i  ri  the  current  node 

NOD 

I  NTEGERM 

number  of  the  current  node 

PTR 

I NTEGER  *4 

number  of  the  data  record 
associated  with  the  last  key 
exami ned 

KEYVAL 

CHARACTER*20 

value  of  the  last  key  examined 

ERR 

BYTE 

error  code  number 

EXTERNALS: 

VAL 
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SUBROUTINE  NEWROOT 


PURPOSE : 

To  create  a 

INPUTS: 

LFNOD 

INTEGERM 

RTNOD 

INTEGERM 

KEYVAL 

CHARACTER*20 

10 

BYTE 

NAME 

CHARACTERS 

HTNOD 

INTEGERM 

MAXNOD 

INTEGERM 

OUTPUTS: 

ROOT 

INTEGERM 

HEIGHT 

BYTE 

EXTERNALS: 

SYM, STACK 


ew  root. 

number  of  left  node 

number  of  right  node 

value  of  the  first  key 
in  the  right  node 

input/output  device  number 

name  of  the  current  tree 

height  of  the  node  stack 

largest  number  yet  assigned 
to  a  node 

node  number  of  the  tree  root 
height  of  the  current  tree 
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SUBROUTINE  PARENT 


PURPOSE: 

To  update  a  parent  node. 

INPUTS: 

LEVEL 

BYTE 

level  of  node  last  examined 

LFNOD 

I NTEGERM 

number  of  left  node 

RTNOD 

I NTEGERM 

number  of  right  node 

BUF 

CHARACTER*2  56 

array  which  contains  the  nodes 
constituting  the  current  path 

ONE 

I  NTEGERM 

parameter  equal  to  MKL  +  2 

PATH 

I  NTEGER*4 

array  which  contains  the  node 
numbers  defining  the  path  from 
the  root  to  the  current  node 

INC 

I  NTEGERM 

variable  which  determines  the 
appropriate  update  action  to  be 
taken  on  the  parent  node 

10 

BYTE 

input/output  device  number 

MKL 

I  NTEGERM 

maximum  key  length 

KEYVAL 

CHARACTER*20 

value  of  the  separator  key 

PTR 

INTEGERM 

number  of  the  node  to  which  the 
separator  key  points 

OUTPUTS: 

NOD 

INTEGERM 

number  of  the  parent  node 

MANY 

I  NTEGERM 

updated  number  of  keys  In 
the  parent  node 

BLOC 

CHARACTER*256 

updated  parent  node 

EXTERNALS: 

VAL.SYM 
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SUBROUTINE  SPLIT 


PURPOSE: 

To  split  a  fu' 

INPUTS: 

10 

BYTE 

NAME 

CHARACTERS 

HTN00 

INTEGERS 

MAXNOD 

INTEGERS 

FULL 

I NTEGERS 

ONE 

I NTEGERS 

BLOC 

CHARACTER*256 

LEAF 

LOGICAL 

NOD 

INTEGERS 

OUTPUTS: 

KEYVAL 

CHARACTER*20 

LFNOD 

INTEGERS 

RTNOD 

INTEGERS 

EXTERNALS: 

SYM 


node  into  two  half-full  nodes. 

input/output  device  number 

name  of  the  current  tree 

height  of  the  node  stack 

largest  number  yet  assigned 
to  a  node 

maximum  number  of  keys  in  a  node 
parameter  equal  to  MKL  +  2 
current  node 

.TRUE,  if  and  only  if  the 
current  node  Is  a  leaf 

number  of  the  current  node 

value  of  key  in  middle  of 
current  node 

number  of  left  node 

number  of  right  node 


A-9 


NSWC  TR  85-54 


SUBROUTINE  AODKEY 

PURPOSE:  To  insert  a  key  into  the  tree 


INPUTS: 

ONE 

INTEGERM 

FULL 

INTEGERM 

10 

BYTE 

NAME 

CHARACTERS 

HTREC 

INTEGERM 

MAXREC 

I NTEGERM 

OUTPUTS: 

ERR 

BYTE 

EXTERNALS: 

GETKE Y, STACK, SYM, PARENT, NEWROOT 


parameter  equal  to  MKL  +  2 

maximum  number  of  keys  in  a  node 

input/output  device  number 

name  of  the  current  tree 

height  of  the  record  stack 

largest  number  yet  assigned 
to  a  data  record 

error  code  number 
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PURPOSE: 

INPUTS: 

H 

MANY 

ONE 

KEYVAL 

BLOC 

10 

HEIGHT 

OUTPUTS: 

MARK 

PTR 

EXTERNALS: 

none 


SUBROUTINE  LOOK 


To  search  a  given  node  for  the  pointer  to  the 
next  node  In  the  path  (If  H  <  HEIGHT),  or  to 
search  a  leaf  for  the  desired  key  (If  H  »  HEIGHT). 


INTEGERM 

INTEGERM 

INTEGERM 

CHARACTER*20 

CHARACTER*256 

BYTE 

BYTE 


tree  level  of  the  current  node 
number  of  keys  In  the  current  node 
parameter  equal  to  MKL  +  2 
search  string 
current  node 

Input/output  device  number 
height  of  the  current  tree 


INTEGER*4  position  In  the  current  node  of 

the  last  key  examined 

INTEGERM  number  of  next  node  In  path  If 

H  <  HEIGHT;  number  of  the  data 
record  associated  with  the  last 
key  examined  if  H  *  HEIGHT 
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SUBROUTINE  GETKEY 


PURPOSE:  To  search  for  the  first  occurrence  of  the 

key  having  its  first  MATCH  characters  equal 
to  the  value  of  KEYVAL. 


INPUTS: 

ABC 

CHARACTERS 

command  letter 

KEYVAL 

CHARACTER*20 

search  string 

10 

BYTE 

input/output  device  number 

MKL 

INTEGER*4 

maximum  key  length 

ROOT 

INTEGER*4 

node  number  of  the  tree  root 

HEIGHT 

BYTE 

height  of  the  current  tree 

OUTPUTS: 

MATCH 

I NTEGER*4 

number  of  characters  in  the  search 
stri ng 

PTR 

I NTEGER*4 

number  of  the  data  record 
associated  with  the  last  key 
exami ned 

NOD 

INTEGER*4 

number  of  the  current  node 

PATH 

INTEGER*4 

array  which  contains  the  node 
numbers  defining  the  path  from 
the  root  to  the  current  node 

BLOC 

CHARACTER*256 

current  node 

BUF 

CHARACTER*256 

array  which  contains  the  nodes 

In  the  current  path 

MANY 

INTEGER*4 

number  of  keys  In  the  current  node 

MARK 

INTEGER*4 

position  In  the  current  node  of 
the  last  key  examined 

KEYVAL 

CHARACTER*20 

value  of  last  key  examined 

ERR 

BYTE 

error  code  number 
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SUBROUTINE 

OLOTREE 

PURPOSE: 

To  open  an  existing  tree  called  NAME  and  ini 
the  a  ..ociated  parameters. 

INPUTS: 

10 

BYTE 

input/output  device  number 

NAME 

CHARACTER*9 

name  of  the  current  tree 

OUTPUTS: 

HTREC 

I NTEGERM 

height  of  the  record  stack 

MAXREC 

I  NTEGER*4 

largest  number  yet  assigned 
to  a  data  record 

HTNOD 

I  NTEGERM 

height  of  the  node  stack 

MAXNOD 

I  NTEGERM 

largest  number  yet  assigned 
to  a  node 

ROOT 

I  NTEGERM 

node  number  of  the  tree  root 

HEIGHT 

BYTE 

height  of  the  current  tree 

EXTERNALS: 

none 
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SUBROUTINE  NEWTREE 


PURPOSE:  To  create 

associ ated 


INPUTS: 

10 

BYTE 

NAME 

CHARACTERS 

OUTPUTS: 

HTREC 

INTEGERM 

MAXREC 

I NTEGERM 

HTNOD 

INTEGERM 

MAXNOD 

INTEGERM 

ROOT 

I  NTEGERM 

HEIGHT 

BYTE 

EXTERNALS: 

none 


a  tree  called  NAME  and  initialize 
parameters . 

input/output  device  number 
name  of  the  current  tree 

height  of  the  record  stack 

largest  number  yet  assigned 
to  a  data  record 

height  of  the  node  stack 

largest  number  yet  assigned 
to  a  node 

node  number  of  the  tree  root 
height  of  the  current  tree 
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SUBROUTINE  SHARE 


PURPOSE:  To  equally  redistribute  keys  between  adjacent 

right  and  left  nodes. 


INPUTS: 

LEAF 

LOGICAL 

•TRUE,  if  and  only  if  the 
current  node  is  a  leaf 

LFM 

I  NTEGERM 

number  of  keys  in  the  left 

node 

RTM 

INTEGERM 

number  of  keys  in  the  right 

node 

LFBLOC 

CHARACTER*256 

left  node 

KEYVAL 

CHARACTER*20 

value  of  separator  key 

RTBLOC 

CHARACTER*256 

right  node 

RTNOD 

I  NTEGER*4 

number  of  the  right  node 

LFNOD 

INTEGER*4 

number  of  the  left  node 

ONE 

I  NTEGER*4 

parameter  equal  to  MKL  +  2 

OUTPUTS: 

KEYVAL 

CHARACTER  *20 

value  of  updated  separator 

key 

EXTERNALS: 

SYM 
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FUNCTION  VAL 


PURPOSE: 


To  convert  a  2-BYTE  symbol  into  an  integer 
between  0  and  65,635. 

(See  FUNCTION  SYM  for  the  inverse  function.) 


INPUTS: 

A 


CHARACTERS  2-BYTE  symbol 


OUTPUTS: 


VAL 


INTEGERS  integer  between  0  and  65,635 

corresponding  to  A 


EXTERNALS: 

none 
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PURPOSE: 

INPUTS: 

NUM 

OUTPUTS: 

SYM 

EXTERNALS: 

none 


NSWC  TR  85-54 

FUNCTION  SYM 

To  convert  an  integer  beween  0  and  65,635 
i nto  a  2-BYTE  symbol . 

(See  FUNCTION  VAL  for  the  inverse  function.) 

INTEGERM'  integer  between  0  and  65,635 

CHARACTER*2  2-BYTE  symbol  corresponding  to  NUM 
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PURPOSE : 


INPUTS: 

none 

OUTPUTS: 

none 

EXTERNALS: 

none 


PROGRAM  DRIVER 


To  directly  examine  a  tree  by  means  of  an 
interactive  diagnostic  program;  especially 
effective  when  used  in  conjunction  with  a 
debug  utility  program. 
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SUBROUTINE  B TR EE ( LTR , LDU , A , MAXLE N , I R EC , I E RR ) 


A  'B+  tree'  is  a  data  structure  which  is  particularly  well 
suited  for  storing  the  keys  which  identify  the  data  records 
in  a  database.  Data  is  rapidly  retrieved  by  minimizing  the 
number  of  mass  storage  accesses.  This  implementation  allows 
a  maximum  of  65,535  keys,  each  having  a  maximum  length  of  20 
characters;  the  tree  has  a  maximum  height  of  5  and  contains 
256-byte  nodes.  Numbers  correspond!- ng  to  deleted  nodes  or 
records  are  placed  in  stacks  and  reused  as  needed.  Application 
programs  which  call  BTREE  can  have  as  many  as  10  trees  open 
s i mul taneous 1y  . 

For  a  basic  introduction  to  the  subject  of  B+  trees,  see 
"The  Ubiquitous  B  Tree"  by  Douglas  Comer,  Computing  Surveys, 
11(1979)121-137;  a  more  comp lete  discussion  can  be  found  in 
"The  Art  of  Computer  Programming,  Vol.3:  Sorting  and  Searching" 
by  Knuth,  Addi son-Wesl ey ,  1973. 

Complete  documentation  for  BTREE  is  contained  in 
"BTREE  :  A  FORTRAN  Code  for  a  B+  Tree"  by  Elliot  Winston, 

NSWC  TR  85-54;  a  code  for  a  database  manager  based  on  BTREE 
is  the  subject  of  "BOSS  :  A  FORTRAN  Code  for  a  Relational 
Database  Manager"  by  Elliot  Winston,  NSWC  TR  85-56. 


INPUTS: 


LTR  (CHARACTER*!)  COMMAND  ACTION 


A 

C 

D 

F 

G 

0 

S 


( A ) DD  A  KEY  TO  THE  TREE 

(C) REATE  A  NEW  TREE 

(D) ELETE  A  KEY  FROM  THE  TREE 
GET  THE  (F)IRST  KEY  IN  THE  TREE 

( G ) E T  FIRST  OCCURRENCE  OF  A  TRUNCATED  KEY 

(0 ) PEN  AN  OLD  TREE 

GET  THE  (S)UCCESSOR  KEY 


LDU  (BYTE) 


UNIT  NUMBER  UNDER  WHICH  THE  TREE 
COMMUNICATES  WITH  MASS  STORAGE 


A  ( CHARACTER*20 ) 

MAXLEN  ( I NTEGER*4  ) 
OUTPUTS: 


KEY  VALUE  (LTR  =  ' A  '  , ' D  '  ,  '  G  '  )  ; 
TREE  NAME  (LTR  =  1 C '  ,  ’0’  ) 

MAXIMUM  KEY  LENGTH  (LTR  =  ' C  '  ) 


IREC  ( I NTEGER*4 )  NUMBER  OF  THE  DATA  RECORD  ASSOCIATED 

WITH  THE  LAST  KEY  ACCESSED 


A  ( CHARACTER*20 )  VALUE  OF  LAST  KEY  ACCESSED 


B-2 


o o o o o  o  o  ooooooooo 


NSWC  TR  85-54 


ERROR  CODE 

ILLEGAL  VALUE  OF  PARAMETER  ' LTR 1 
ATTEMPT  TO  CREATE  EXISTENT  TREE 
ATTEMPT  TO  ACCESS  NONEXISTENT  TREE 
ATTEMPT  TO  FIND  NONEXISTENT  KEY 
NO  SUCCESSOR  EXISTS  (LAST  KEY  IN  TREE) 
ATTEMPT  TO  INSERT  KEY  CURRENTLY  IN  TREE 

IMPtICIT  I NTEGER*4  (A-Z) 

COMMON  /XXX TREE/ 

1  IO,ERR,MARK,MANY,PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOO,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF(0:5) ,PATH(0: 5) ,HTREC(10) .MAXREC(IO) .HTNOD(IO) , 

4  MAXNOD(IO) .ROOT (10 ),MKL( 10) .HEIGHT (10), NAME (10) 

BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1,NAME*9, KEYVAL *20 
CHARACTER*256  BUF , BLOC , LFBLOC , RTBLOC 

BYTE  IERR.LDU 

INTEGER  MARKS(IO) ,MANYS(10) 

CHARACTER  LTR* 1 , A*20 , BLOCS ( 10 ) *256 


I  ERR  (BYTE) 

1 

2 

3 

4 

5 

6 


CONTROL  LOGICAL  FLOW  OF  A  COMMAND 


10  *  LDU 

ABC  -  LTR 

ERR  =■  0 

IF  (ABC.NE. 'C ' .OR.ABC.NE. 'O' )  THEN 
ONE  =  MKL(IO)  +  2 
FULL  -  252/ONE 

END  IF 

IF  (ABC .EQ. ' A ' )  THEN 
KEYVAL  *  A 
CALL  ADDKEY 

ELSE  IF  ( ABC .EQ. 'C 1 )  THEN 
NAME ( 10 )  -  A 
MKL(IO)  -  MAXLEN 
CALL  NEWTREE 

ELSE  IF  (ABC  . EQ . * D  * )  THEN 
KEYVAL  »  A 
CALL  DELKEY 

ELSE  IF  (ABC.EQ. * F ' )  THEN 
CALL  FIRST 

ELSE  IF  (ABC.EQ. 'G')  THEN 
KEYVAL  -  A 
CALL  GETKEY 

ELSE  IF  (ABC.EQ. '0')  THEN 

NAME ( 10)  -  A 
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CALL  OLDTREE 

ELSE  IF  ( ABC  .  EQ  .  1 S  1  )  THEN 
MARK  =  MARKS ( 10 ) 

MANY  =  MAN YS (10) 

BLOC  =  BLOCS ( 10 ) 

CALL  SUCCESSOR 
ELSE 

ERR  =  1 
END  IF 
A  =  KEYVAL 
IREC  =  PTR 
IERR  =  ERR 

IF  (ABC.EQ. ‘ G ' .OR.ABC.EQ. ' F ' .OR.ABC.EQ. *  S  *  )  THEN 
MARKS ( 10  )  =  MARK 
MAN YS (10)  =  MANY 
BLOCS ( 1 0  )  =  BLOC 
END  IF 
RETURN 
END 


ooo  ooooo 
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SUBROUTINE  NEWTREE 
IMPLICIT  I NTEGER*4  (A-Z) 

COMMON  /XXXTREE/ 

1  1 0, ERR, MARK, MAN Y.PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM, RTM.LF NOD, RTNOD, KE YVAL , BLOC, LFBLOC , RTBLOC , 

3  BUF(0:5),PATH(0:5),HTREC{10),MAXREC(10),HTN0D(10), 

4  MAXNOD(IO) .ROOT (10 ),MKL( 10), HEIGHT (10) .NAME (10) 

BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1 , NAME *9 , KE Y VAL *20 
CHARACTER*256  BUF , BLOC , LF BLOC , RTBLOC 

CHARACTER  SYM*2,FN*13 
L0GICAL*1  THERE 

201  FORMAT ( A256  ) 

202  FORMAT (715) 


CREATE  A  NEW  TREE 


CLOSE ( UN IT= IQ ) 

FN  =  NAME ( 10) // • .KEY ' 

INQUIRE (FILE=FN,EX1ST=THERE) 

IF  (THERE)  THEN 
ERR  «  2 
RETURN 
END  IF 

OPEN(UNIT=IO,FILE=FN,STATUS=‘NEW' , FORM= ' FORMATTED ' , 

*  AC CESS=‘ DIRECT' ,RECL=256) 

I  *  0 

0  =  0 

BLOC ( 1 : 2  )  =  SYM(I) 

BLOC ( 3 : 4 )  *  SYM(J) 

WRITE(I0,201,REC=2)  BLOC 
J  =  2 

BLOC ( 3 : 4 )  =  SYM(J) 

WRITE(I0,201,REC=4)  BLOC 

HTREC(IO)  =  0 

MAXREC ( 10  )  =  0 

HTNOD(IO)  =  0 

MAXNOD ( 10 )  =  2 

ROOT (10)  =  2 

HEIGHT ( 10)  =  0 

ENTRY  POINT  FOR  'HEADER' 

ENTRY  HEADER 

WRITE (I0.202.REC-1)  HTREC  (  10 ) .MAXREC ( 10 ), HTNOD ( 10 ) .MAXNOD ( 10 ) , 

*  ROOT(IO),MKL(IO),HEIGHT(IO) 
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RETURN 

END 
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SUBROUTINE  OLOTREE 
IMPLICIT  INTEGERM  (A-Z) 

COMMON  /XXXTREE/ 

1  10, ERR, MARK, MAN Y, PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOD,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF { 0 : 5 ) .PATH (0:5) ,HTREC(10) .MAXREC(IO)  ,HTN0D(10), 

4  MAXNOO(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC* 1 , NAME *9 , KE Y VAL*20 
CHARACTER*256  BUF , BLOC .LFBLOC , RTBLOC 

CHARACTER*13  FN 
LOGICALM  THERE 

301  FORMAT (715) 


OPEN  AND  NITIALIZE  AN  OLD, TREE 


FN  *  NAME (10)//*  .KEY' 

INQUIRE(FILE=FN,EXIST=THERE) 

IF  (THERE)  THEN 
CLOSE ( UN  I  T  =  10 ) 

OPEN(UNIT=IO,FILE=FN,STATUS='OLD ' , FORM* ' FORMATTED ' , 
ACCESS='DIRECT' ) 

RE AD ( 1 0 , 30 1 , REC  =  1 )  HTREC ( 10 ) .MAXREC ( 10 ) , HTNOD ( 10 ) .MAXNOD ( 1 0 ) , 

ROOT (10) ,MKL( 10) .HEIGHT ( 10) 

ELSE 

ERR  *  3 
RETURN 
END  IF 
RETURN 
END 
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SUBROUTINE  GETKEY 
IMPLICIT  INTEGERS  (A-Z) 

COMMON  /XXXTREE/ 

1  1 0, E RR, MAR K, MAN Y ,PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LF NOD, R TNOD , KE Y V AL , BLOC, LFBLOC , RTBLOC , 

3  BU F ( 0  :  5 ) , P A TH ( 0 : 5 ) , HTR EC ( 1 0 ) , MAXRE C ( 1 0 ) , HTNOD ( 10  ) , 

4  MAXNOD(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC  *  1 , NAME *9 , KE Y VAL *  20 
CHARACTER *256  BUF , BLOC , LF BLOC , RTBLOC 

401  FORMAT ( A256 ) 


SEARCH  FOR  FIRST  OCCURRENCE  OF  A  KEY  HAVING 
FIRST  ‘MATCH’  CHARACTERS  EQUAL  TO  1 KE Y V AL  ‘ 


IF  (ABC.EQ.'G')  THEN 
J  =  20 

DO  WHILE  (KEYVAL (J : J  )  .EQ.  '  ' ) 

J  =  J  -  1 
END  DO 
MATCH  =  J 
ELSE 

MATCH  =  MKL(IO) 

END  IF 

PTR  =  ROOT ( 10) 

HEND  =  HEIGHT ( 10) 

DO  4015  H  =  0 , HE ND 
NOD  =  PTR 
PATH ( H )  =  NOD 
READ ( 10,401 ,REC=NOD )  BLOC 
BUF(H)  =  BLOC 
MANY  =  VAL ( BLOC ( 1 : 2 ) ) 

IF  (MANY.EQ.O)  THEN 

EMPTY  TREE 

MARK  =  1 
ERR  =  4 
RETURN 
ELSE 

CALL  LOOK ( H ) 

END  IF 

4015  CONTINUE 

4020  IF  (MATCH. EQ.MKL( 10) .OR. MARK. LT.MANY  +  1  )  GO  TO  4030 
EXTENDED  SEARCH  FOR  A  STRICTLY  TRUNCATED  KEY 
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J  =  MAN Y*ONE  +  3 
NOD  =  VAL ( BLOC ( J : J  +  l ) ) 

IF  (NOD.EQ.O)  60  TO  4030 
PATH ( HE ND  )  =  NOD 
READ(I0,401,REC=N0D)  BLOC 
BUF(HEND)  =  BLOC 
MANY  =  VAL (BLOC (1:2)) 

CALL  LOOK ( HEND  ) 

GO  TO  4020 
C 

4030  K  =  ( MARK- 1 ) *ONE  +  3 

PTR  =  VAL { BLOC ( K : K+l ) ) 

IF  (KEYVAL .EQ.BL0C(K  +  2: K  +  MATCH  +  1 ) )  THEN 
ERR  =  0 

KEYVAL  =  BL0C(K+2:K+MKL(I0}+1) 

ELSE 

ERR  =  4 
END  IF 
RETURN 
END 
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SUBROUTINE  SHARE ( LE AF ) 

C 

IMPLICIT  INTEGERM  (A-Z) 

C 

COMMON  /XXXTREE/ 

1  1 0, E RR, MARK, MAN Y.PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOO,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF (0: 5) ,PATH(0: 5) , HTREC ( 10 ) .MAXREC ( 10  )  .HTNOD ( 10  )  , 

4  MAXNOO(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1,NAME*9,KEYVAL*20 
CHARACTER+256  BUF, BLOC, LFBLOC.RTBLOC 
C 

C HAR AC TE R *2  SYM 
LOG  I  CAL  *  1  LEAF 
C 

201  FORMAT ( A256 ) 


BALANCE  ADJACENT  NODES 


MANY  =  (LFM  +  RTM)/2 
IF  (MANY. EQ. LFM)  THEN 

WRITE( I0,201,REC=N0D)  BLOC 
RETURN 
END  IF 

BLOC (1:2)  =  SYM ( MAN Y ) 

IF  (MANY. LT. LFM)  THEN 
1=2+  MANY+ONE 
IF  (LEAF)  THEN 

BLOC ( 3 :  I  )  =  LF BLOC ( 3  :  I  ) 

BLOC( 1+1 : 1+2)  =  SYM(RTNOD) 
WRITE(IQ,201,REC=LFN0D)  BLOC 
J  =  2  +  LFM+ONE 
BLOC ( 3 : J-  1  +  2  )  =  LF BLOC (  I  + 1 :  J  ) 

ELSE 

B LOC ( 3 : 1+2)  =  LFBLOC ( 3  :  I  +  2  ) 
WRITE(I0,201,REC=LFN0D)  BLOC 
J  =  4  +  LFM+ONE 
K  =  4  +  (LFM  -  MANY  -  1)*0NE 
B L 0 C ( 3 : K )  =  LFBLOC ( I +ONE +  1 :  J  ) 

BLOC ( K+ 1  :K+MKL( 10) )  =  KEYVAL 
END  IF 

K  =  3  +  (LFM  -  MANY ) *ONE 
MANY  =  LFM  +  RTM  -  MANY 
BL0C(K:4+MANY*0NE  )  =  RTBLOC ( 3 : 4  +  RTM  +  ONE  ) 
KEYVAL  =  LFBLOC ( I +3 : I +ONE  ) 

ELSE 

1=2+  LFM+ONE 
IF  (LEAF)  THEN 

BLOC ( 3  :  I  )  *  LFBLOC ( 3  :  I ) 
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SUBROUTINE  MERGE ( LEAF ) 

C 

IMPLICIT  I  NTEGERM  (A-Z) 

C 

COMMON  /XXXTREE/ 

1  10, ERR, MARK, MANY, PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOD,RT NOD, KEYVAL, BLOC, LFBLOC , RTBLOC , 

3  BUF (0:5) ,PATH(0:5) ,HTREC(10) ,MAXREC(10) ,HTNOD(10)  , 

4  MAXNOD(IO) .ROOT (10) , MKL ( 1 0 ) , HE  I GHT ( 10 ) , NAME ( 10 ) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC* 1 , NAME  *  9 , KE Y VAL*20 
CHARACTER*256  BUF , BLOC , LFBLOC , RTBLOC 
C 

BYTE  ADD 

CHARACTER  SYM*2,EXT*3 
LOG ICAL*1  LEAF 
C 

201  FORMAT (A256 ) 


MERGE  ADJACENT  NODES  INTO  THE  LEFT  NODE 


IF  (LEAF)  THEN 

MANY  =  LFM  +  RTM 
BLOC (1:2)  =  SYM(MANY) 

8L0C(3:2+LFM*0NE)  =  LFBLOC ( 3 : 2+LFM*0NE ) 

1=3+  LFM+ONE 
ELSE 

MANY  =  LFM  +  RTM  +  1 
BLOC (1:2)  =  SYM(MANY) 

BL0C(3:4+LFM*0NE)  =  LFBLOC ( 3 : 4+LFM*0NE  ) 

1=5+  LFM+ONE 

BLOC ( I : I +MKL ( 1 0 ) -  1 )  =  KEYVAL 

1  =  1+  MKL ( 1 0 ) 

END  IF 

BLOC ( I : I  +  1  +  RTM*0NE  )  =  RTBLOC ( 3 : 4+RTM*0NE ) 
WRITE(I0,201,REC=LFN0D)  BLOC 
ADD  =  1 
EXT  =  'NOD' 

CALL  STACK (RTNOD, 10, NAME ( 1 0 ) , E XT , ADD , HTNOD ( 1 0 ) , MAXNOD ( I  0 ) ) 

RETURN 

END 
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SUBROUTINE  ADJACENT 
IMPLICIT  INTEGERM  (A-Z) 

COMMON  /XXXTREE/ 

1  1 0, E RR, MARK, MAN Y, PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM, R TM.LF NOD, RTNOD, KEY VAL, BLOC, LFBLOC , RTBLOC , 

3  BUF(0:5) .PATH (0:5) ,HTREC(10) .MAXREC(IO) ,HTN0D(10) , 

4  MAXNOD(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC  *  1 , NAME  *  9 , K E Y V AL *20 
CHARACTER *256  BUF , BLOC , LF BLOC , RTB LOC 

501  FORMAT ( A256  ) 


FIND  ADJACENT  NODES 


MUCH  =  VAL (BUF (LEVEL-1 ) ( 1 : 2  ) ) 

DO  5005  M= 1 .MUCH 

1=3+  (M-l )*ONE 

IF  (VAL(BUF (LEVEL-1 ) ( I : I+l ) ) .EQ.NOO)  GO  TO  5010 
5005  CONTINUE 

MARK  =  MUCH 
1=3+  (MARK-1 )*ONE 
RTNOD  =  NOD 
RTBLOC  =  BLOC 
RTM  =  MANY 

LFNOD  =  VAL (BUF(LEVEL-1 ) ( I : I  +  l )  ) 

READ( I0,501,REC=LFN0D)  LFBLOC 
LFM  =  VAL (LFBLOC (1:2)) 

GO  TO  5015 
5010  MARK  =  M 

1  =  3  +  (MARK-1 ) *0  N  E 
LFNOD  =  NOD 
LFBLOC  =  BLOC 
LFM  =  MANY 

RTNOD  =  VAL (BUF (LEVEL-1 ) ( I+ONE: I+l+ONE)) 

READ ( 1 0, 501 , R EC  =  RTNOD)  RTBLOC 
RTM  =  VAL (RTBLOC (1:2)) 

5015  KEYVAL  =  BUF ( LE VEL- 1 ) ( I +2 : I +1+MKL ( 10 ) ) 

RETURN 

END 
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IF  (MANY  .EQ.O )  THEN 
ROOT ( I  0  )  =  PATH ( 1 ) 

HEIGHT(IO)  =  HEIGHT(IO)  -  1 

WRITE( IO,802,REC=1)  HTREC ( 10 ) .MAXREC ( 10 ) , HTNOD (10), 
MAXN0D( 10) ,R00T( 10) ,MKL ( 10) ,HEIGHT( 10) 

END  IF 

WRITE(I0,801,REC=N0D)  BLOC 
RETURN 
ELSE 

M  =  2 

LEAF  =  .FALSE. 

GO  TO  8005 
END  IF 
ELSE 

CALL  SHARE(LEAF) 

IF  (MANY .EQ.LFM)  RETURN 
INC  =  0 

CALL  PARENT (INC) 

W R I T E ( I0,801,REC  =  N0D)  BLOC 
RETURN 
END  IF 
END 
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SUBROUTINE  DELKEY 
C 

IMPLICIT  INTEGERM  (A-Z) 

C 

COMMON  /XXXTREE/ 

1  1 0, E RR, MARK, MAN Y.PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOD,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF ( 0 : 5 ) ,PATH{0: 5) , HTREC ( 1 0 ) , MAXR EC ( 10 ) , HTNOD ( 1 0 ) , 

4  MAXNOD(IO) , ROOT (10) ,MKL(10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1 , NAME *9 , KE Y V AL *  20 
CHARACTER*256  BUF , BLOC , LFBLOC , RTBLOC 
C 

BYTE  ADD 

CHARACTER  SYM*2,EXT*3 
L0GICAL*1  LEAF 
C 

801  FORMAT ( A256 ) 

802  F ORMAT (715) 


DELETE  A  KEY  FROM  THE  TREE 


DELETE  A  KEY  FROM  A  LEAF 

CALL  GETKEY 
IF  (ERR.NE.O)  RETURN 
ADD  =  1 
EXT  =  1 REC  1 

CALL  STACK (PTR, 10, NAME ( 10) .EXT, ADD, HTREC ( 10  ),MAXREC(  10)  ) 

L  =  3  +  (MARK-1 )*ONE 

R  =  4  +  MANY*ONE 

BLOC ( L : R )  =  BLOC (L+ONE : R+ONE ) 

MANY  =  MANY  -  1 
BLOC (1:2)  «  SYM(MANY) 

IF  (MANY. GE. FULL/2. OR. HEIGHT(IO) .EQ.O)  THEN 
WRITE(I0,801,REC=N0D)  BLOC 
RETURN 
END  IF 


UPDATE  TREE 


LEVEL  *  HEIGHT(IO) 

M  *  1 

LEAF  -  .TRUE. 

8005  CALL  ADJACENT 

IF  (LFM+RTM.LE.FULL-M)  THEN 
CALL  MERGE (LEAF ) 

INC  «  -1 

CALL  PARENT ( INC ) 

IF  (MANY. GE. FULL/2. OR. LEVEL. EQ.O)  THEN 
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SUBROUTINE  SUCCESSOR 
IMPLICIT  INTEGERM  (A-Z) 

COMMON  /XXXTREE/ 

1  10, ERR, MARK, MANY, PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  L FM, RTM, LF NOD, RTNOO , KE Y V AL , BLOC, LFBLOC , RTBLOC , 

3  BUF{0: 5) , PATH ( 0 : 5) ,HTREC{ 10) ,MAXREC( 10)  ,HTN0D(10) , 

4  MAXNOD(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10), NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC* 1 , NAME *9 , KE Y VAL*20 
CHARACTER *2 56  BUF , BLOC , LFBLOC , RTBLOC 

801  FORMAT ( A256 ) 


GET  THE  NEXT  KEY  IN  SEQUENCE  FOLLOWING  THE  LAST 
KEY  ACCESSED  UNDER  THE  SAME  INPUT/OUTPUT  NUMBER 


IF  (MARK. LT. MANY)  THEN 
MARK  =  MARK  +  1 
GO  TO  8010 
ELSE 

1=3+  MANY*ONE 
NOD  =  VAL ( BLOC (1:1+1)) 

IF  (NOD.EQ.O)  THEN 
ERR  =  5 
RETURN 
ELSE 

READ(I0,801,REC=N0D)  BLOC 
MANY  =  VAL ( BLOC (1:2)) 

MARK  =  1 
END  IF 
END  IF 

8010  K  =  3  +  ( MARK- 1  ) * 0 N E 

PTR  =  VAL ( BLOC (K : K+l ) ) 

KEYVAL  =  BL0C(K  +  2:K+MKL( I0)  +  1 ) 

RETURN 

END 
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SUBROUTINE  FIRST 
IMPLICIT  INTEGERS  ( A-Z  ) 

COMMON  /XXXTREE/ 

1  IO,ERR,MARK,MANY,PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LFNOD,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF(0:5) .PATH (0:5) ,HTREC(10) .MAXREC(IO) ,HTN0D(10), 

4  MAXNOD(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC *1 , NAME *9 , KE Y VAL*20 
CHARACTER*256  BUF , BLOC , LFBLOC , RTBLOC 

701  FORMAT (A256) 


SEARCH  FOR  THE  FIRST  KEY  IN  THE  TREE 


NOD  =  ROOT (10) 

HEND  =  HEIGHT ( 10 ) 

DO  7005  H=0 , HEND 

READ( I0,701,REC=N0D)  BLOC 
IF  (H.EQ.HEND)  GO  TO  7010 
NOD  =  VAL ( BLOC (3:4)) 

7005  CONTINUE 
7010  MARK  =  1 

MANY  =  VAL ( BLOC (1:2)) 

EMPTY  TREE 

IF  (MANY.EQ.O)  THEN 
ERR  =  4 
RETURN 
END  IF 

PTR  =  VAL (BLOC (3:4)) 

KEYVAL  =  BLOC { 5 : 4+MKL (10)  ) 

RETURN 

END 
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SUBROUTINE  NEWROOT 
IMPLICIT  I NTEGERM  (A-Z) 

COMMON  /XXXTREE/ 

1  1 0, ERR, MARK, MAN Y.PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  L FM, R TM, LF NOD, R TNOD.KEYVAL, BLOC, LFBLOC .RTBLOC , 

3  BUF ( 0 : 5)  ,PATH(0: 5) , HTREC ( 10 ) .MAXREC(IO) ,HTN0D(10)  , 

4  MAXNOD ( 10 ) .ROOT ( 1 0 ) , MKL { 10 ) , HE  I GHT ( 1 0 ) , NAME ( 10 ) 
BYTE  10  ,  ER°  .LEVEL, HEIGHT 

CHARACTER  ABC *1 , NAME *9 , KE Y VAL *20 
CHARACTER *256  BUF , BLOC , LFBLOC , RTB LOC 

BYTE  ADD 

CHARACTER  SYM*2,EXT*3 

701  FORMAT ( A256 ) 

702  FORMAT (715) 


CREATE  A  NEW  ROOT 


MANY  =  1 

BLOC (1:2)  =  S  YM (MANY ) 

BLOC (3:4)  =  SYM(LFNOD) 

BLOC ( 5 : 2+ONE  )  =  KEYVAL 
BL0C(3+0NE:4+0NE)  =  SYM(RTNOD) 

ADD  =  -1 
EXT  =  'NOD' 

CALL  STACK ( PTR , 10 , NAME ( 10) .EXT ,ADD,HTNOD( 10) .MAXNOD (10)) 

WRITE ( 10, 701 ,REC=PTR )  BLOC 

ROOT (10)  =  f TR 

HE IGHT ( 1 0 )  =  HE  I  GHT ( 1 0  )  +  1 

WRITE(I0,702,REC  =  1)  H TREC ( 1 0 ) .MAXRE C ( I  0 ) , HTNOD ( 1 0  )  .MAX  NOD ( 1 0  )  , 
*  ROQT( 10) ,MKL(IO) ,HEIGHT(IO) 

RETURN 

END 
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SUBROUTINE  PARENT (INC) 

IMPLICIT  INTEGERM  (A-Z) 

COMMON  /XXXTREE/ 

1  10, ERR, MARK, MANY, PTR, NOD, LEVEL, MATCH, ONE .FULL, ABC, 

2  LFM,RTM,LFNOD,RTNOD,KEYVAL,BLOC,LFBLOC,RTBLOC, 

3  BUF ( 0 : 5 ) ,PATH(0: 5) ,HTREC(10) .MAXREC(IO) ,HTN0D(10) , 

4  MAXNOD(IO) .ROOT (10) ,MKL( 10) .HEIGHT (10) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1 .NAME *9 .KEYVAL *20 
CHARACTER+256  BUF , BLOC , LFBLOC , RTB LOC 

CHARACTER+2  SYM 


UPDATE  A  PARENT  NODE 


LEVEL  =  LEVEL  -  1 
NOD  «  PATH (LEVEL ) 

BLOC  =  BUF ( LEVEL  ) 

MANY  =  VAL (BLOC  (1:2)) 

DO  6005  M=1 .MANY 

1=3+  (M-l )*ONE 

IF ( VAL (BLOC ( I : 1+1 ) ) .EQ.LFNOD )  GO  TO  6010 
6005  CONTINUE 

M  =  MANY  +  1 
6010  L  =  5  +  ( M- 1 ) *ONE 
R  =  4  +  MANY+ONE 
IF  (INC.EQ.-l)  THEN 

DELETE  SEPARATOR  FROM  PARENT  NODE 

IF  (M.LT.MANY )  BLOC(L:R)  =  BLOC ( L+ONE : R+ONE  ) 

ELSE  IF  (INC.EQ.O)  THEN 

UPDATE  VALUE  OF  SEPARATOR  IN  PARENT  NODE 

BL0C(L:L+MKL(I0)-1)  =  KEYVAL 

ELSE 

INSERT  SEPARATOR  INTO  PARENT  NODE 

IF  (M.LE.MANY)  BLOC( L+ONE :R+ONE )  =  BLOC ( L : R ) 

BL0C(L:L+MKL(I0)-1)  «  KEYVAL 

BLOC ( L  +M KL(I0):L+0NE-1)  »  SYM(RTNOD) 


END  IF 

MANY  «  MANY  +  INC 
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SUBROUTINE  SPLIT(LEAF) 

IMPLICIT  INT£GER*4  (A-Z) 

COMMON  /XXXTREE/ 

1  10, ERR  .MARK, MAN Y, P TR , NOD, LEVEL, MATCH, ONE .FULL, ABC, 

2  LFM,  RTM.LF NOD, RTNOD.KEYVAL, BLOC, LFBLOC .RTBLOC, 

3  BUF(0: 5)  ,PATH(0: 5) ,HTREC(10) .MAXREC(IO) ,HTN0D(10), 

4  MAXNOD( 10) .ROOT (10) , MKL ( 1 0 ) , HE  I GHT ( 1 0 ) .NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1 , NAME *9 , KE Y V AL *  20 
CHARACTER *256  BU F  ,  B LOC , L F BLOC , R TBLOC 

BYTE  ADD 

CHARACTER  SYM*2,EXT*3 
LOG  I  CAL  *  1  LEAF 

601  FORMAT ( A256  ) 


SPLIT  A  FULL  NODE  INTO  TWO  HALF-FULL  NODES 


ADD  =  -1 
EXT  =  'NOD' 

CALL  STACK (PTR, 10, NAME (10) , E XT , ADD , HTNOD ( 1 0 ) .MAXNOD(IO)) 
MANY  =  FULL/2 
LFNOD  =  NOD 

LFBLOC (1:2)  =  S YM ( MANY  ) 

1=2+  MANY*ONE 
KEYVAL  =  BLOC ( I +3 : I +ONE  ) 

IF  (LEAF)  THEN 

LFBLOC (3:  I)  =  BLOC ( 3  : 1  ) 

LFBLOC ( I  +  1  : I +2  )  =  SYM(PTR) 

WRITE(  10,601 ,REC  =  NOD)  LFBLOC 
MANY  =  FULL  -  MANY 
ELSE 

LFBLOC ( 3 : 1+2)  =  BL0C(3:  1  +  2) 

WRITE(I0,601,REC=N0D)  LFBLOC 
I  =  I  +  ONE 

MANY  =  FULL  -  1  -  MANY 
END  IF 
RTNOD  =  PTR 

RTBLOC (1:2)  «  SYM(MANY) 

RTBL0C(3:4+MANY*0NE)  =  B LOC ( I  + 1 : 4  +  FULL *ONE ) 

WRITE(I0,601,REC=PTR)  RTBLOC 

RETURN 

END 
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IF  (LEVEL. 6T.0)  THEN 
INC  =  1 

CALL  PARENT (INC) 

IF  (MANY. LT.  FULL)  THEN 

WRITE(  I0,401,REC  =  N0D)  BLOC 
RETURN 
ELSE 

LEAF  =  .FALSE. 

GO  TO  4005 
END  IF 
ELSE 

CALL  NEWROOT 
END  IF 
RETURN 
END 
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SUBROUTINE  ADDKEY 
C 

IMPLICIT  I NTEGER*4  (A-Z) 

C 

COMMON  /XXXTREE/ 

1  IO,£RR,MARK,MANY,PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM,RTM,LF NOD, RTNOO.KEYVAL, BLOC, LF BLOC, RTBLOC, 

3  BUF(0:5) ,PATH(0: 5) ,HTREC( 10) ,MAXREC(10) ,HTN0D(10)  , 

4  MAXNOD(IO) .ROOT (10 ),MKL{ 10) .HEIGHT (10), NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC  *  1 , NAME *9 , KE Y V AL *20 
CHARACTER* 2 56  BUF , BLOC , LF BLOC , RTBLOC 
C 

BYTE  ADD 

CHARACTER  SYM*2,EXT*3 
LOG  I CAL*1  LEAF 
C 

401  F  ORMAT ( A256  ) 


INSERT  A  KEY  INTO  THE  TREE 


INSERT  A  KEY  INTO  A  LEAF 

CALL  GETKEY 
IF  (ERR.EQ.O)  THEN 
ERR  =  6 
RETURN 
ELSE 

ERR  =  0 
END  IF 
ADD  =  -1 
E  XT  =  1 R  EC  1 

CALL  STACK(PTR, IO,NAME( 10) , E XT , ADD , HTREC ( IO),MAXREC(  10)) 
L  =  3  +  (MARK-1 )*ONE 
R  =  4  +  MAN Y  *ONE 
BLOC(L+ONE:R+ONE)  =  BLOC(L:R) 

BLOC ( L : L+l )  =  SYM(PTR) 

BL0C(L+2:L+0NE-1)  =  KEYVAL 
MANY  =  MANY  +  1 
BLOC (1:2)  =  S YM( MANY ) 

IF  (MANY. LT. FULL)  THEN 

WR I TE ( I0,401,REC=N0D)BL0C 
RETURN 
END  IF 

UPDATE  TREE 

LEVEL  *  HEIGHT(IO) 

LEAF  -  .TRUE. 

4005  CALL  SPL I T ( LEAF  ) 
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SUBROUTINE  LOOK ( H ) 

IMPLICIT  I NTEGER *4  (A-Z) 

COMMON  / XXXTREE/ 

1  10, ERR, MARK, MANY, PTR, NOD, LEVEL, MATCH, ONE, FULL, ABC, 

2  LFM, RTM, LF NOD, R TNOD, KEYVAL, BLOC, LFBLOC , RTBLOC , 

3  BUF(0:5), PATH (0:5) , HTR EC ( 1 0 ) , MAXREC ( 1 0 ) ,HTN0D(10) , 

4  MAXNOD(IO) , ROOT (10) ,MKL( 10) .HEIGHT (10), NAME (10) 
BYTE  10, ERR, LEVEL, HEIGHT 

CHARACTER  ABC*1,NAME*9,KEYVAL*20 
CHARACTER *256  BUF , BLOC , LFBLOC , RTBLOC 

CHARACTER*20  TRY 


SEARCH  A  GIVEN  NODE 


DO  5015  M=1 .MANY 

K  =  5  +  ( M -  1 ) *ONE 

TRY  =  BL0C(K:K+MKL(I0)-1) 

IF  (TRY. GE. KEYVAL)  GO  TO  5020 

5015  CONTINUE 

MARK  =  MANY  +  1 
GO  TO  5025 

5020  IF  ( H . EQ . HE  I GHT (  1 0  )  )  THEN 
MARK  =  M 
ELSE 

IF  (TRY .EQ. KEYVAL  )  THEN 
MARK  =  M  +  1 
ELSE 

MARK  =  M 
END  IF 
END  IF 

5025  K  =  ( MARK- 1  )*ONE  +  3 
PTR  =  VAL ( BLOC ( K : K+l ) ) 

RETURN 

END 
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J  =  2  +  (MANY-LFM)*ONE 

BLOC (  I  +  1 : I+J-2)  =  RTBLOC ( 3  :  J  ) 

K  =  I  +  J  -  1 

BLOC ( K : K+l )  =  SYM(RTNOD) 

ELSE 

BLOC ( 3 : 1  +  2)  =  LFBLOC ( 3  :  I  +2  ) 

BLOC ( 1  +  3 :  I  +  ONE )  =  KEYVAL 
J  =  2  +  { MANY- l-LFM)*ONE 
I  =  I  +  ONE 

BLOC ( 1  +  1 : I +J  )  =  RTBLOC (3:J  +  2) 

END  IF 

WRITE(I0,201,REC=LFN0D)  BLOC 

K  =  3  +  (MANY  -  LFM ) *ONE 

MANY  =  LFM  •+  RTM  -  MANY 

BLOC(3: 4+MANY+ONE)  =  R TBLOC ( K : 4+R TM*ONE ) 

KEYVAL  =  RTBLOC ( J+3 : J+ONE ) 

END  IF 

BLOC (1:2)  =  SYM( MANY  ) 
WRITE(IO,201,REC=RTNOD)  BLOC 
RETURN 
END 
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SUBROUTINE  STACK ( PTR , 1 0 , NAME , E XT , ADD , HT , MOST ) 
C 

IMPLICIT  I NTEGER*4  (A-Z) 

C 

CHARACTER  S YM*2 , E XT*3 , NAME *9 , F N*1 3 , B* 1 28 
BYTE  ADD, 10 
C 

901  FORMAT ( A128 ) 


PUSH/POP  (ACCORDING  TO  ADD  =  1, 
STACK  (ACCORDING  TO  EXT  = 


-1)  THE  RECORD/NODE 
' REC 1 , *  NOD  * ) 


C 

C 

C 


IF  (HT.GT.O.OR.ADD.EQ.l)  THEN 
CLOSE ( UN  IT®  10 ) 

FN  =  NAME//'  .  '//EXT 

OPE N( UN  I T  =  10, F I LE  =  FN, STATUS"' UNKNOWN ' ,FORM=' FORMATTED ' , 
r  ACCESS" 'DIRECT ' ,RECL  =  128) 

1=1+  HT/64 
J  =  MOD ( HT , 64 ) 

K  =  2*  J 

HT  =  HT  +  ADD 

IF  (ADD.EQ.l)  THEN 

IF  (K.GT.O)  READ ( 10 , 901 , REC= I )  B 
B ( K+ 1 : K+2 )  =  SYM(PTR) 

WRITE(I0,901,REC=I)  B 
ELSE 

IF  (J.EQ.O)  THEN 
1  =  1-1 
K  =  126 
ELSE 

K  =  K  -  2 
END  IF 

READ ( 10 , 901 , REC= I )  B 
PTR  =  VAL ( B ( K+l : K+2 ) ) 

END  IF 

IF  (HT.EQ.O)  THEN 

CLOSE ( UN  I T  =  10, STATUS"' DELETE ' ) 

ELSE 

CLOSE (UN  I T= 10 ) 

END  IF 

FN  =  NAME//' .KEY' 

OPEN (UN  IT  =  10, FILE  =  FN, STATUS =’ OLD ’ , FORM* 'FORMATTED ' , 

*  ACCESS-'DIRECT' ) 

ELSE 

MOST  *  MOST  +  1 
PTR  =  MOST 
END  IF 


ENTRY  POINT  OF  'HEADER'  IS  LOCATED  IN  'NEWTREE' 
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FUNCTION  VAL(A) 

C 

IMPLICIT  I NTEGERM  (A-Z) 
C 

CHARACTER*2  A 


CONVERT  COOED  2-BYTE  SYMBOL  INTO  AN 
INTEGER  BETWEEN  0  AND  65535 


VAL  =  ICHAR ( A( 1 : 1 ) ) 

J  =  ICHAR ( A( 2 : 2 ) ) 

K  =  2**8 
DO  1005  1=0,7 

VAL  =  VAL  +  IBITS(J,I,1)*K 
K  =  2*K 
1005  CONTINUE 
RETURN 
END 
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CONVERT  AN  INTEGER  BETWEEN  0  AND  65535 
INTO  A  CODED  2-BYTE  SYMBOL 


2005 

2010 


DO  2010  J  =  1 , 2 
SUM  =  0 
K  =  1 

DO  2005  1=0,7 

SUM  =  SUM  +  IBITS(NUM,(J-1)*8+I,1)*K 
K  =  2  *  K 
CONTINUE 

S YM ( J : J  )  =  CHAR ( SUM ) 

CONTINUE 
RETURN 
END 
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10 

11 

21 

22 

23 

24 

25 

26 


PROGRAM  DRIVER 


CHARACTER  LTR*1,A*20 


FORMAT { A1 ) 
FORMAT ( A25 ) 
FORMAT ( 1 0 X  , 
FORMAT { 10X , 
FORMAT ( 10X  , 
FORMAT ( 10X , 
FORMAT ( 10X , 
FORMAT ( 1  OX , 


ILLEGAL  VALUE  OF  LTR 1 ) 

TREE  CURRENTLY  EXISTS ' ) 
NONEXISTENT  TREE') 

CANNOT  FIND  DESIRED  KEY  VALUE') 
NO  SUCCESSOR  KEY  EXISTS ' ) 

KEY  CURRENTLY  EXISTS  IN  TREE') 


PROGRAM  TO  DIRECTLY  EXAMINE  A  TREE 


WR I TE ( 6 , * )  '  ENTER  LOGICAL  UNIT  NUMBER’ 

READ ( 5  ,  *  )  L DU 
100  WR I TE ( 6 , * )  '  ' 

WRITE(6,*)'  A  -  add  D  -  delete  G  -  get 

WRITE(6,*)'  F  -  first  S  -  successor 

WR I TE ( 6 , * ) '  0  -  open  C  -  create 

WR I TE ( 6 , * ) 1  ENTER  LETTER' 

RE AD ( 5 , 10 )  LTR 

IF  (LTR.EQ. 'A' .OR.LTR.EQ. ' D ' .OR.LTR.EQ.  '  G  '  )  THEN 
WR I TE ( 6 , * ) '  ENTER  KEY  VALUE  ' 

READ (5,11)  A 

ELSE  IF  (LTR.EQ. 'O' .OR.LTR.EQ.  'C'  )  THEN 
WR I TE ( 6 , *  ) '  ENTER  TREE  NAME ' 

READ (5,11)  A 
IF  (LTR.EQ. 'C')  THEN 

WRITE(6,*)'  ENTER  LENGTH  OF  PRIMARY  KEY' 
READ ( 5 , * )  MAXLEN 
END  IF 
END  IF 

CALL  BTREE(LTR,LDU,A,MAXLEN, IREC, I  ERR) 


IF  (IERR.EQ.O)  THEN 
GO  TO  200 

ELSE  IF  (IERR.EQ.l) 
WRITE (6,21 ) 

ELSE  IF  (IERR.EQ.2) 
WR I TE ( 6 , 22  ) 

ELSE  IF  ( IERR.EQ.3  ) 
WR I TE ( 6 , 23  ) 

ELSE  IF  (IERR.EQ.4) 
WR I TE ( 6 , 24  ) 

ELSE  IF  ( IERR.EQ.5) 
WR I TE ( 6, 25 ) 

ELSE  IF  (IERR.EQ.6) 
WR I TE ( 6, 26 ) 


THEN 

!  ILLEGAL  VALUE  OF  'LTR 

THEN 

!  TREE  CURRENTLY  EXISTS 

THEN 

!  NONEXISTENT  TREE 

THEN 

!  CANNOT  FIND  KEY 

THEN 

!  NO  SUCCESSOR  KEY 

THEN 

!  KEY  CURRENTLY  EXISTS 

key  * 
key  ' 
tree ' 
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0/2) 


c 


LEVEL  =  HEIGHT ( 10) 

H  =*  1 

LEAF  =  .TRUE. 

8005  CALL  ADJACENT 

IF  (LFM+RTM.LE.FULL-M)  THEN 
CALL  MERGE (LEAF ) 

INC  =  -1 

CALL  PARENT (INC) 

IF  (MANY. G£. FULL/2. OR. LEVEL. EQ.O)  THEN 


B- 19 


B-21 


BLOC ( 3 : K)  =  LFBLOC ( I +ONE  +1 : J  ) 

BLOC (K+l : K+MKL ( 10) )  =  KEYVAL 
END  IF 

K  =  3  +  (LFM  -  MANY ) *ONE 
MANY  =  LFM  +  RTM  -  MANY 

BL0C(K:4+MANY*0NE)  =  RTBLOC ! 3 : 4+RTM*0NE  ) 
KEYVAL  =  LFBLOC ( I +3 : I+ONE  ) 

ELSE 

1=2+  LFM*0NE 
IF  (LEAF)  THEN 

BLOC ( 3  :  I )  =  LFBLOC (3:1) 


ACCESS* 1  DIRECT  * ) 

ELSE 

MOST  =  MOST  +  1 
PTR  =  MOST 
END  IF 

ENTRY  POINT  OF  'HEADER1  IS  LOCATED  IN  'NEWTREE* 


B-25 


B-26 


WRITE (6,22) 

ELSE  IF  ( I  ERR  .  EQ .  3  )  THEN 
WR I TE ( 6 , 23 ) 

ELSE  IF  (IERR.EQ.4)  THEN 
WR  I  TE  (  6 , 24  ) 

ELSE  IF  (IERR.EQ.5)  THEN 
WR I TE ( 6 , 25 ) 

ELSE  IF  { IERR.EQ.6)  THEN 


WR I TE (6, 26 ) 


!  NONEXISTENT  TREE 
!  CANNOT  FIND  KEY 
!  NO  SUCCESSOR  KEY 


!  KEY  CURRENTLY  EXISTS 


